home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Borland Plateform / Turbo Prolog 2 / EXAMPL52.PRO < prev    next >
Encoding:
Prolog Source  |  1986-04-25  |  519 b   |  22 lines
  1.    /* program 52 */
  2.  domains
  3.    town     =symbol
  4.    distance =integer 
  5.  predicates
  6.    road(town,town,distance)
  7.    route(town,town,distance)
  8.  clauses
  9.    road(tampa,houston,20).
  10.    road(gordon,tampa,30).
  11.    road(houston,gordon,10).
  12.    road(houston,kansas_city,12).
  13.    road(gordon,kansas_city,13).
  14.    
  15.    route(Town1,Town2,Distance):-
  16.        road(Town1,Town2,Distance).
  17.    route(Town1,Town2,Distance):-
  18.        road(Town1,X,Dist1),
  19.        route(X,Town2,Dist2),
  20.        Distance=Dist1+Dist2,!.
  21.   
  22.